\\\\\\\\\\ 1.2V 15.09.2000 - Rekompilace s novou knihovnou SWMORAVA verze 6.c0 SWBTR verze 1.8e Davkovy tisk, ......... - Sjednoceni verze XENON \\\\\\\\\\ 1.2_ 10.11.2000 ukonceni verze 1.2? \\\\\\\\\\ 1.37 18.01.2001 Vytvoreni samostatne skupiny SPEKMET \\\\\\\\\\ 1.38 24.01.2000 VSE - Nove verze knihovny - parametr lUpdateNoChange dan zpet na implicitni hodnotu .T. (byla .F.) \\\\\\\\\\ 1.39 25.01.2000 - oprava chyby pri tisku - nekompatibilita knihovny SREK_LIB a SWMORAVA \\\\\\\\\\ 1.3d 07.05.2000 - uprava pro vyhodnoceni tridy EUROP dle novych kriterii z datovych souboru NA_SRAZK, NA_HMOTN \\\\\\\\\\ 1.3e 15.05.2000 - oprava chyby pri vyhodnoceni EUROP dle novych kriterii \\\\\\\\\\ 1.3f 16.05.2000 - oprava chyby zapisu firmy v rezimu bez firem \\\\\\\\\\ 1.3z 01.06.2000 - Konecna verze 1.3x \\\\\\\\\\ 1.40 01.06.2001 Uvodni verze 1.4x \\\\\\\\\\ 1.41 07.06.2001 Reinstalace s novou knihovnou \\\\\\\\\\ 1.4q 19.10.2001 Reinstalace s novou knihovnou \\\\\\\\\\ 1.55 21.01.2002 DDF verze 06 - RECNO \\\\\\\\\\ 1.56 27.02.2002 sp.ch, sp.prg, sp_data.prg, sp_konf.prg - pridan parametr na dotaz na cenovou masku - rozsirena databaze o cenovou masku pri mereni \\\\\\\\\\ 1.60 19.12.2002 sp.ch, sp.prg, sp_com.prg, sp_data.prg, sp_konf.prg - rozsireni o moznost vedeni vykupu na kartu karty.dbf - novy ciselnik *.dbf - ostatni dbf soubory se automaticky refresuji na upravenou strukturu \\\\\\\\\\ 1.61 23.12.2002 sp_data.prg - formular na kod a usni cislo, tisk usniho cisla na vaznim protokolu \\\\\\\\\\ 1.62 20.01.2003 sp.prg, sp_data.prg sp.ch - doplnen klasifikator, zadani, tisky \\\\\\\\\\ 1.63 29.04.2003 Revize Windows \\\\\\\\\\ 1.64 10.06.2003 Revize Windows \\\\\\\\\\ 1.65 08.01.2004 sp.ch, sp.prg, sp_com.prg, sp_data.prg, sp_konf.prg - zapojeni sondy Hennessy \\\\\\\\\\ 1.66 17.02.2004 Rekompilace s novou knihovnou \\\\\\\\\\ 1.67 06.04.2004 sp.ch, sp_konf.prg sp_data.prg - pridan parametr SP_TISK_MASKA, lze jim ridit tisk cenove masky na nak. listku \\\\\\\\\\ 1.80 22.06.2004 sp.ch - doplneny manifestacni konstatnty: SP_NETISK_MER pro netisknuti vazniho protokolu behem mereni, SP_ZOBR_CENA - zobrazit ve vypisu mereni cenu/kg dle cenove masky, SP_ZAC_PARTIE - metoda zacatku partie - pred zahajenim mereni/po prvnim mereni,SP_ZAKL_CENA - zakladni cena v mase pro vypocet cenove masky, SP_KALIBRACE - rezim kalibrace pistole, SP_TEST_TARA - zda kontrolovat taru, SP_KONTR_TARA - hodnota, na kterou se ma tara kontrolovat, SP_CENA_KUSU - prumerna cena kusu behem mereni partie sp.prg - pokud rezim NETISK_MER,tak netestuju existenci tiskarny - definovani error souboru pro lokal rezim sp_com.prg- ve funkci Get_Port(), pokud rezim kalibrace, nehlasim chybu mereni vahy. Pokud rezim kalibrace, nehlasim chyby pistole. - pro sondu hennesy opraveny udaje pro kontrolu masitosti a speku - zprisnena kontrola na vstupni vetu hennesy sp_data.prg- ve funkci VstupVaha() doplneny parametry pro zavedeni partie pred zacatkem mereni, a pro vypocet ceny behem mereni pokud rezim NETISK_MER, tak netestuju tiskarnu pokud rezim ZAC_PARTIE pred merenim - volam HlavDokl() a zjistim cislo nove partie. Doplneno spousteni rezimu KALIBRACE - F5, pro kalibraci testuju tiskarnu, pokud neni, rusim rezim kalibrace test na min. vahu odstaven v rezimu KALIBRACE pokud rezim ZOBR_CENA, pak vypocet ceny aktualniho kusu a prumerne ceny/kg od zacatku partie a zobrazeni ve vypisovanem radku po ukonceni mereni zrusen rezim KALIBRACE ve funkci StavSpekm() v ramecku doplneno zobrazni F5 - kal.sp. ve funkci Zapis() doplnen prametr lNulcis = nulovani cislene rady, impl. .f. hodnoty brutto, netto, tara a netto_kor pokud rezim KALIBRACE tak plnim 0 pri urcovani tridy, pokud rezim ZOBR_CENA, tak pocitam i cenu dle cenove masky radek dokladu tisknu jen pokud tezim !NETISK_MER nebo KALIBRACE ve funkci BrowDelete() tisk stornovaneho radku jen pokud !NETISK_MER ve funkci RadekDokl() test tiskarny pokud !NETISK_MER nebo rezim KALIBRACE ve funkci ZvolNormu() doplnena inicalizace ZAKL_CENA, pokud rezim ZOBR_CENA ve funkci HlavDokl() pokud rezim NETISK_MER, tak netestuju tiskarnu ani netisknu vazni protokol ve funkci KonecPartie() pokud rezim KALIBRACE, tisknu navic radek pro podpis klasifikatora doplnena funkce Hl_Kalibrace() - tisk hlavicky pro protokol kalibrace sp_konf.prg - doplneno nacteni novych promennych SpCfg() na007.ttt - doplnen tisk denniho protokolu vazeni tisk.mmm - doplneno polozka menu tisk denniho protokolu vazeni \\\\\\\\\\ 1.81 22.07.2004 sp.ch - doplnena manifestacni konstatnta SP_KOD_POZAS, pro definici kodu pozastaveneho kusu sp_konf.prg - doplneno nacteni nove promenne SpCfg(SP_KOD_POZAS) sp.prg - ve funkci Sp_StruData() struktura souboru spekmetru rozsirena o poradi_cel sp_data.prg - ve funkci Vstupvaha() vypocet prumerne zmasilosti jen pokud pripojen spekmetr, radek v okne nahledu v rezimu ZOBR_CENA rozsiren o poradi_cel, masitost, spek ve funkci Zapis() doplnen zapis poradi_cel, doplnena promenna lNul - dosadit nulove hodnoty, zapis do poradi_cel - Lastrec(), brutto, tara, netto, netto_kor pokud lNul, tak 0. ve funkci RadekDokl() doplnena promenna lNul-tisk nulovych hodnot, pokud lNul, tak tiskne v poznamce "Pozastaveno" doplnena funjce Sp_Trida() pro vyhodnoceni tridy SEUROP dle cenove masky spekmetr.bbb - doplneno zobrazeni pole poradi_cel oper.mmm - doplnena polozka Prepocet cenove masky, pokud SpCfg(SP_MERENI) na400.ooo - doplnena operace pro zmenu cenove masky na jiz zmerene partii na001.ttt, na007.ttt - opraveno v aSoucet a aRad netto -> netto_kor, pokud sp->konfiskat = SpCfg(SP_KOD_POZAS), tsknu v poznamce "Pozastaveno" na010.ttt - opraveno poradi vyhodnoceni cenove masky, nejprve srazky dle hmotnosti, pokud v ciselniku NA_HMOT nastaveno LZMAS, pak jdu vyhodnocovat srazku dle zmasilosti. Dale oprava chyby vyhodnoceni dle hmotnosti a sekce aSoucet - podle netto_kor, ne podle netto. 06.09.2004 sp.ch, sp_konf.prg - pridani noveho parametru SP_KOREKCE sp_data.prg, sp_com.prg - do COM vstupu sejmuti vahy zabudovana moznost korekce vahy, tato se pak zapisuje do SP->KOR (Roman) \\\\\\\\\\ 1.82 24.09.2004 rekompilace s novou knihovnou \\\\\\\\\\ 1.83 11.11.2004 sp.ch - pridani novych parametru SP_KOR_PLSTI, SP_HODN_KOR1, SP_HODN_KOR2, SP_VYBR_KOR pro nastaveni urovne korekce hmotnosti a jejich IMPL_... sp_konf.prg - ve funkci Sp_Komfig() doplneno predplneni parametru SP_KOR_PLSTI, SP_HODN_KOR1, SP_HODN_KOR2, SP_VYBR_KOR sp_data.prg - ve funkci HlavDokl(),pokud je nastaveno SpCfg(SP_KOR_PLSTI), doplnen dotaz, zda korekce za studena, korekce plsti nebo korekce plsti s branici ve funkci Zapis() doplnen parametr nKorekce, do ktereho je vypocitavana korekce aktualniho zaznamu, dle urovne korekce Za studena, plst, plst+branice a dlet teto urovne korekce, dopoctena hodnota Netto \\\\\\\\\\ 1.84 06.01.2005 spm.prg, spm.ch - doplnen novy modul SP - monitor pro odecitani prubehu porazky a zobrazeni na vzdalenem pocitaci - SP_MON.EXE sp_mon.bbb - novy browse monitoru SP spm.cfg - konfiguracni soubor monitoru SP sp.ch - doplneny manifestacni konstanty SP_ZAD_CREG,SP_REG_JATEK, SP_REG_CHOV,SP_REG_OBCH sp.prg - ve funkci Sp_StruData() struktura databaze rozsirena o reg_chov,reg_obch,reg_jatek - C,10,0 - ve funkci SpUse() doplneno v O_Of() sdilene databaze parametr lshare = .t. sp_konf.prg - doplneno nacteni SP_ZAD_CREG a SP_REG_JATEK z SP.CFG a predplneni SP_REG_CHOV,SP_REG_OBCH impl. hodnotou sp_data.prg - ve funkci Zapis() doplneno zapisovani REG_CHOV, REG_OBCH a REG_JATEK do tabulky SP, ve funkci HlavDokl() doplneno, pokud SP_ZAD_CREG, pak dotaz na cislo staje chovatele a cislo staje obchodnika spekmetr.bbb - doplneno zobrazeni poli REG_CHOV, REG_OBCH a REG_JATEK firmy.bbb - doplneno zobrazeni kod_zeme a chov_ico \\\\\\\\\\ 1.85 17.01.2005 sp.prg - ve funkci Sp_StruData() struktura databaze rozsirena o pole KOD_ZEME sp_konf.prg - doplneno predplneni SP_KOD_ZEME impl. hodnotou sp_data.prg - ve funkci Zapis() doplneno zapisovani KOD_ZEME, ve funkci HlavDokl() doplneno, pokud SP_ZAD_CREG, pak dotaz na KOD_ZEME, predplneni promennych KOD_... implicitni hodnotou, v tisku hlavicky vazniho protokolu doplnen tisk Reg. cisel chovatele a obchodnika a kod zeme spekmetr.bbb - doplneno zobrazeni pole KOD_ZEME \\\\\\\\\\ 1.86 13.05.2005 sp_konf.prg - doplneno predplneni SP_KOD_ZEME honotou nactenou z sp.cfg sp_data.prg - doplnena metoda tisku vazniho protokolu 2, kde je doplnen tisk celkoveho poradi kusu v ramci dne \\\\\\\\\\ 1.87 08.07.2005 sp_konf.prg - opravena hlaska - misto fakturace -> SP, doplneno nacteni hodnoty SP_KLAS_MET z konfiguracniho souboru SP.CFG sp.ch - doplnena manifestacni konstanta SP_KLAS_MET - klasifikační metoda pro doplnění v tisku vážního protokolu sp_data.prg - tisk vazniho protokolu obsahuje navic v hlavicce klasifikacni metodu, registracni cislo jatek v polozkach celkove poradi, a format zobrazeni hmotnosti, vysky masa, speku doplnen zleva nulami jak v tisku, tak ve vypisu na display. Doplnen typ listku 3 obsahijci celkove poradi, poradi v partii, tridu, kartu, taru, zmasilost, vysku masa,speku, reflexi, hm.kruponu a kod zeme. \\\\\\\\\\ 1.88 05.08.2005 sp.prg - doplnena MEMVAR sp_chm a PUBLIC sp_chm - celkova hmotnost pro vypocet prumerne zmasilosti na kilo sp.ch - doplnena manifestacni konstanta SP_TYP_PRZM pro nastaveni, zda pocitat prumernou zmasilost na kus nebo na kilo sp_konf.prg - ve funkci Sp_konfig() doplneno nacteni hodnoty konfiguracniho parametru SP_TYP_PRZM sp_data.prg - ve funkci VstupVaha() doplneno podle zvolene metody prumerne zmasilosti SP_TYP_PRZM vypocet prumerne zmasilosti na kilo nebo na kus, doplnena memvar sp_chm pro vypocet celkove hmotnosti, ve funkci KonecPartie() doplneno nulovani sp_chm \\\\\\\\\\ 1.89 19.08.2005 sp.ch - doplneny manifestacni konstanty SP_WAIT_TIME - pro nastaveni prodlevy po uspesnem odecteni vazeni, kvuli opakovanemu nacteni hodnot a SP_CELK_POR - metoda naplnovani celkoveho poradi - 1 - impl. Lastrec(), 2 - nova metoda - pokud kalibracni mereni 0, jinak nacita poradi - kvuli celkovemu poctu vazeni = celkovy pocet kusu sp_konf.prg - ve funkci Sp_konfig() doplneno nacteni hodnot konfiguracnich parametru SP_WAIT_TIME - impl. 0 a SP_CELK_POR - impl. 1 sp_data.prg - ve funkci VstupVaha() doplneno po uspesnem precteni vahy, pokud SP_WAIT_TIME > 0 prodleva sekund. ve funkci Zapis() doplnena promenna local nPorCelk a pres ni naplnovano PORADI_CEL, pokud metoda SP_CELK_POR = 1 - Lastrec(), pokud metoda SP_CELK_POR = 2 - kdyz kalibracni mereni 0, jinak nacita poradi \\\\\\\\\\ 1.8a 16.09.2005 sp.ch - doplnena manifestacni konstanta SP_HODN_KOR3 pro dalsi uroven korekce branice sp_data.prg - opraveno - vsechny SpCfg("...") opraveny na SpCfg(...), ve funkci StavSpek() doplnen vypocet korekco o moznost volby 3, ve funkci ZvolNormu() rozsiren dotaz na korekci o volbu 3 ve funci KonecPartie() po kalibracnim mereni doplneny ukoncovacu nastaveni tisku a odstrankovani sp_konf.prg - ve funkci Sp_konfig() doplneno nacteni hodnot konfiguracnich parametru SP_HODN_KOR3 - impl. 0 \\\\\\\\\\ 1.8b 14.07.2006 rekompilace s novou knihovnou \\\\\\\\\\ 1.8c 08.09.2006 rekompilace s novou knihovnou \\\\\\\\\\ 1.8d 22.09.2006 rekompilace s novou knihovnou \\\\\\\\\\ 1.8e 23.03.2007 rekompilace s novou knihovnou \\\\\\\\\\ 1.8f 25.11.2008 rekompilace s novou knihovnou \\\\\\\\\\ 1.8g 10.02.2008 rekompilace s novou knihovnou